home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / globe.bas < prev    next >
Unknown  |  1994-05-18  |  1.9 KB  |  [ZTKN/ZBAS]

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default


id metadata
keyvalue
macFileType[ZTKN]
macFileCreator[ZBAS]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 01 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 02 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217 A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 03 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 10 00 04 ff d2 00 00 | f0 5a 54 52 4f 4e 20 62 |........|.ZTRON b|
|000000c0| 00 00 00 50 00 00 ff ee | 00 00 f2 08 20 23 31 2c |...P....|.... #1,|
|000000d0| 20 22 67 6c 6f 62 65 20 | 28 68 6f 6c 64 20 61 6e | "globe |(hold an|
|000000e0| 79 20 6b 65 79 20 77 68 | 65 6e 20 72 6f 74 61 74 |y key wh|en rotat|
|000000f0| 69 6e 67 20 66 61 73 74 | 29 22 2c 28 34 2c 33 38 |ing fast|)",(4,38|
|00000100| 29 2d 28 35 38 30 2c 35 | 30 30 29 3a f0 28 20 31 |)-(580,5|00):.( 1|
|00000110| 30 30 00 00 00 3a 00 06 | ff ae 00 00 f0 64 20 30 |00...:..|.....d 0|
|00000120| 2c 20 5f 63 61 73 65 49 | 6e 73 65 6e 73 69 74 69 |, _caseI|nsensiti|
|00000130| 76 65 20 5f 73 74 72 52 | 65 73 6f 75 72 63 65 20 |ve _strR|esource |
|00000140| 5f 6d 61 63 73 62 75 67 | 4c 61 62 65 6c 73 00 00 |_macsbug|Labels..|
|00000150| 00 14 00 07 ff c4 00 00 | 5f 6e 78 79 7a 20 3d 20 |........|_nxyz = |
|00000160| 35 35 30 30 00 00 00 14 | 00 08 ff ea 00 00 f0 0a |5500....|........|
|00000170| 20 6d 79 62 6f 78 26 28 | 33 35 29 00 00 44 00 09 | mybox&(|35)..D..|
|00000180| ff ea 00 00 f0 19 20 41 | 2d 5a 3a 73 3d 30 3a 63 |...... A|-Z:s=0:c|
|00000190| 3d 31 30 30 30 30 f0 5a | 63 72 65 61 74 65 73 20 |=10000.Z|creates |
|000001a0| 67 6c 6f 62 65 73 20 66 | 72 6f 6d 20 6d 61 70 64 |globes f|rom mapd|
|000001b0| 61 74 61 20 69 6e 20 74 | 72 61 63 65 2e 62 61 73 |ata in t|race.bas|
|000001c0| 00 00 00 1a 00 0a ff ba | 00 00 f0 1f 20 f0 66 3a |........|.... .f:|
|000001d0| 73 62 3d 30 3a 63 62 3d | 31 30 30 30 30 00 00 08 |sb=0:cb=|10000...|
|000001e0| 00 0b ff e4 00 00 00 00 | 00 50 00 0c ff f6 00 00 |........|.P......|
|000001f0| f0 0a 20 64 75 6d 25 28 | 39 29 2c 78 25 28 5f 6e |.. dum%(|9),x%(_n|
|00000200| 78 79 7a 29 2c 79 25 28 | 5f 6e 78 79 7a 29 2c 7a |xyz),y%(|_nxyz),z|
|00000210| 25 28 5f 6e 78 79 7a 29 | 2c 63 25 28 33 30 30 30 |%(_nxyz)|,c%(3000|
|00000220| 29 3a 41 53 5a 26 3d 5f | 6e 78 79 7a 2a 36 3a 74 |):ASZ&=_|nxyz*6:t|
|00000230| 74 25 3d 31 30 30 30 30 | 00 00 00 5a 00 0d ff ae |t%=10000|...Z....|
|00000240| 00 00 68 68 3d 33 31 33 | 3a 68 3d 35 30 32 3a 68 |..hh=313|:h=502:h|
|00000250| 68 32 3d 68 68 2f 32 3a | 68 32 3d 68 2f 32 3a 46 |h2=hh/2:|h2=h/2:F|
|00000260| 3d 68 2f 31 38 3a 67 3d | 68 68 2f 31 38 3a 63 69 |=h/18:g=|hh/18:ci|
|00000270| 72 3d 31 34 39 3a 64 72 | 21 3d 33 2e 31 34 31 35 |r=149:dr|!=3.1415|
|00000280| 39 2f 31 38 30 2e 30 3a | 63 62 3d 63 69 72 3a 73 |9/180.0:|cb=cir:s|
|00000290| 62 3d 63 69 72 00 00 20 | 00 0e ff a4 00 00 66 24 |b=cir.. |......f$|
|000002a0| 3d f4 36 28 5f 66 4f 70 | 65 6e 2c 22 54 45 58 54 |=.6(_fOp|en,"TEXT|
|000002b0| 22 2c 2c 76 25 29 00 00 | 00 3c 00 0f ff de 00 00 |",,v%)..|.<......|
|000002c0| f0 13 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 70 65 | | ope|
|000002e0| 6e 20 74 68 65 20 67 6c | 6f 62 65 2e 64 61 74 20 |n the gl|obe.dat |
|000002f0| 66 69 6c 65 00 00 00 26 | 00 10 ff c2 00 00 f0 21 |file...&|.......!|
|00000300| 20 22 49 22 2c 35 2c 66 | 24 2c 2c 76 25 3a 41 50 | "I",5,f|$,,v%:AP|
|00000310| 26 3d f4 01 28 64 75 6d | 25 28 30 29 29 00 00 20 |&=..(dum|%(0)).. |
|00000320| 00 11 ff d8 00 00 f0 0b | 20 20 f6 17 20 23 35 2c |........| .. #5,|
|00000330| 41 50 26 2c 41 53 5a 26 | 3a f0 25 20 23 35 00 00 |AP&,ASZ&|:.% #5..|
|00000340| 00 32 00 12 ff de 00 00 | 75 3d 30 3a 76 3d 30 3a |.2......|u=0:v=0:|
|00000350| 77 3d 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |w=0 | |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000370| 20 20 20 00 00 2c 00 13 | ff cc 00 00 63 31 30 3d | ..,..|....c10=|
|00000380| f4 1a 28 31 30 2a 64 72 | 21 29 2a 74 74 25 3a 73 |..(10*dr|!)*tt%:s|
|00000390| 31 30 3d f4 1b 28 31 30 | 2a 64 72 21 29 2a 74 74 |10=..(10|*dr!)*tt|
|000003a0| 25 00 00 4a 00 14 ff d2 | 00 00 77 3d f4 1b 28 76 |%..J....|..w=..(v|
|000003b0| 2a 64 72 21 29 2a f4 1a | 28 64 72 21 2a 75 29 2a |*dr!)*..|(dr!*u)*|
|000003c0| 74 74 25 3a 76 3d f4 1a | 28 76 2a 64 72 21 29 2a |tt%:v=..|(v*dr!)*|
|000003d0| f4 1a 28 64 72 21 2a 75 | 29 2a 74 74 25 3a 75 3d |..(dr!*u|)*tt%:u=|
|000003e0| f4 1b 28 64 72 21 2a 75 | 29 2a 74 74 25 00 00 1e |..(dr!*u|)*tt%...|
|000003f0| 00 15 ff b4 00 02 f0 01 | 20 73 74 3d 30 20 f6 04 |........| st=0 ..|
|00000400| 20 33 35 3a f0 04 3a f2 | 07 20 f0 20 00 00 00 32 | 35:..:.|. . ...2|
|00000410| 00 16 ff e0 02 02 f0 24 | 20 68 32 2c 68 68 32 2c |.......$| h2,hh2,|
|00000420| 63 69 72 f0 5a 20 64 72 | 61 77 20 61 20 63 69 72 |cir.Z dr|aw a cir|
|00000430| 63 6c 65 20 66 6f 72 20 | 74 68 65 20 67 6c 6f 62 |cle for |the glob|
|00000440| 65 00 00 46 00 17 ff cc | 02 04 f0 01 20 6b 6b 3d |e..F....|.... kk=|
|00000450| 31 20 f6 04 20 5f 6e 78 | 79 7a f0 5a 6e 6f 77 20 |1 .. _nx|yz.Znow |
|00000460| 6c 61 79 20 6f 75 74 20 | 6f 6e 20 61 20 63 69 72 |lay out |on a cir|
|00000470| 63 6c 65 2d 67 6c 6f 62 | 65 20 77 69 74 68 20 63 |cle-glob|e with c|
|00000480| 65 6e 74 65 72 20 75 3b | 76 00 00 3a 00 18 ff b8 |enter u;|v..:....|
|00000490| 04 04 f0 5a 20 20 20 20 | 20 20 20 20 20 20 20 20 |...Z | |
|000004a0| 20 20 20 20 20 20 20 20 | 61 70 70 6c 79 20 74 72 | |apply tr|
|000004b0| 61 6e 73 66 6f 72 6d 73 | 20 66 6f 72 20 72 6f 74 |ansforms| for rot|
|000004c0| 61 74 69 6f 6e 00 00 10 | 00 19 ff c4 04 04 7a 7a |ation...|......zz|
|000004d0| 3d 7a 25 28 6b 6b 29 00 | 00 22 00 1a ff ee 04 04 |=z%(kk).|."......|
|000004e0| 79 79 3d 28 73 2a 78 25 | 28 6b 6b 29 2b 63 2a 79 |yy=(s*x%|(kk)+c*y|
|000004f0| 25 28 6b 6b 29 29 2f 74 | 74 25 00 00 00 22 00 1b |%(kk))/t|t%..."..|
|00000500| ff dc 04 04 78 78 3d 28 | 63 2a 78 25 28 6b 6b 29 |....xx=(|c*x%(kk)|
|00000510| 2d 73 2a 79 25 28 6b 6b | 29 29 2f 74 74 25 00 00 |-s*y%(kk|))/tt%..|
|00000520| 00 28 00 1c ff dc 04 04 | f0 0f 20 7a 7a 2a 75 2b |.(......|.. zz*u+|
|00000530| 78 78 2a 77 2b 79 79 2a | 76 3c 30 20 f6 05 20 20 |xx*w+yy*|v<0 .. |
|00000540| f0 0d 20 22 6e 65 78 74 | 22 00 00 2a 00 1d ff d6 |.. "next|"..*....|
|00000550| 04 04 78 64 3d 78 78 2a | 63 69 72 2f 74 74 25 2b |..xd=xx*|cir/tt%+|
|00000560| 68 32 3a 79 64 3d 2d 7a | 7a 2a 63 69 72 2f 74 74 |h2:yd=-z|z*cir/tt|
|00000570| 25 2b 68 68 32 00 00 10 | 00 1e ff d4 04 04 f0 03 |%+hh2...|........|
|00000580| 20 78 64 2c 79 64 00 00 | 00 32 00 1f ff ee 02 02 | xd,yd..|.2......|
|00000590| 22 6e 65 78 74 22 f0 07 | 20 6b 6b 20 20 20 20 20 |"next"..| kk |
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 00 00 00 3a 00 20 | | ...:. |
|000005c0| ff cc 02 02 f0 13 20 20 | 20 20 20 20 20 20 20 20 |...... | |
|000005d0| 20 20 20 20 20 20 20 20 | 20 67 65 74 20 6e 65 77 | | get new|
|000005e0| 20 73 69 6e 65 73 20 61 | 6e 64 20 63 6f 73 69 6e | sines a|nd cosin|
|000005f0| 65 73 20 20 20 20 00 00 | 00 36 00 21 ff c4 02 02 |es ..|.6.!....|
|00000600| 73 74 65 3d 73 3a 73 3d | 28 73 2a 63 31 30 2b 63 |ste=s:s=|(s*c10+c|
|00000610| 2a 73 31 30 29 2f 74 74 | 25 3a 63 3d 28 63 2a 63 |*s10)/tt|%:c=(c*c|
|00000620| 31 30 2d 73 74 65 2a 73 | 31 30 29 2f 74 74 25 00 |10-ste*s|10)/tt%.|
|00000630| 00 0c 00 22 ff c8 02 02 | f2 07 20 f6 10 00 00 18 |..."....|.. .....|
|00000640| 00 23 ff f2 02 02 6d 79 | 42 6f 78 26 28 53 54 29 |.#....my|Box&(ST)|
|00000650| 20 3d 20 f2 07 20 00 00 | 00 1c 00 24 ff e6 02 02 | = .. ..|...$....|
|00000660| f2 07 20 28 30 2c 30 29 | 2c 20 6d 79 42 6f 78 26 |.. (0,0)|, myBox&|
|00000670| 28 73 74 29 00 00 00 0c | 00 25 ff e2 00 00 f0 07 |(st)....|.%......|
|00000680| 20 73 74 00 00 38 00 26 | ff f2 00 00 f0 13 20 20 | st..8.&|...... |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 64 | | d|
|000006b0| 69 73 70 6c 61 79 20 67 | 6c 6f 62 65 73 00 00 24 |isplay g|lobes..$|
|000006c0| 00 27 ff c6 00 04 22 42 | 4b 22 f0 37 20 f4 2f 3d |.'...."B|K".7 ./=|
|000006d0| 22 22 3a f0 01 20 73 74 | 3d 30 20 f6 04 20 33 35 |"":.. st|=0 .. 35|
|000006e0| 3a f0 04 00 00 1c 00 28 | ff da 04 04 f2 07 20 28 |:......(|...... (|
|000006f0| 30 2c 30 29 2c 20 6d 79 | 42 6f 78 26 28 73 74 29 |0,0), my|Box&(st)|
|00000700| 00 00 00 32 00 29 ff e2 | 00 00 f0 07 20 73 74 3a |...2.)..|.... st:|
|00000710| f0 38 3a f0 0f 20 f2 0b | 28 5f 64 6f 77 6e 29 3c |.8:.. ..|(_down)<|
|00000720| 3e 30 20 f6 05 20 f0 0d | 20 22 42 4b 22 20 3a f0 |>0 .. ..| "BK" :.|
|00000730| 15 20 f0 1f 00 00 00 08 | 00 2a ff cc 00 00 00 00 |. ......|.*......|
|00000740| 00 08 00 2b ff f6 00 00 | 00 00 00 08 00 2c ff f6 |...+....|.....,..|
|00000750| 00 00 00 00 00 08 00 2d | ff f6 00 00 00 00 00 0a |.......-|........|
|00000760| ff ff ff f6 ff d6 f0 12 | 00 00 |........|.. |
+--------+-------------------------+-------------------------+--------+--------+